﻿Module Module1
  Sub Main()

    Dim dt As DateTime
    dt = New DateTime(2007, 12, 10)
    Console.WriteLine(dt.Year)
    Console.ReadLine()

  End Sub
End Module
